home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASSRC.ZIP / CASEDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  924 b   |  37 lines
  1.                                 (* Chapter 4 - Program 8 *)
  2. program Demonstrate_Case;
  3.  
  4. var Count : integer;
  5.  
  6. begin  (* main program *)
  7.    for Count := 0 to 8 do begin
  8.       Write(Count:5);
  9.          case Count of
  10.            1 : Write(' One');    (* Note that these do not have *)
  11.            2 : Write(' Two');    (* to be in consecutive order *)
  12.            3 : Write(' Three');
  13.            4 : Write(' Four');
  14.            5 : Write(' Five');
  15.          else Write(' This number is not in the allowable list');
  16.          end; (* of case structure *)
  17.       Writeln;
  18.    end;  (* of Count loop *)
  19. end.  (* of main program *)
  20.  
  21.  
  22.  
  23.  
  24. { Result of execution
  25.  
  26.     0 This number is not in the allowable list
  27.     1 One
  28.     2 Two
  29.     3 Three
  30.     4 Four
  31.     5 Five
  32.     6 This number is not in the allowable list
  33.     7 This number is not in the allowable list
  34.     8 This number is not in the allowable list
  35.  
  36. }
  37.